Column

Fur Color

Column

---
title: "Squirrel Maps"
output: 
  flexdashboard::flex_dashboard:
    theme: journal
    social: menu
    source_code: embed
---

```{r, include=FALSE}

library(tidyverse)
library(plotly)

```


```{r}
squirrel_census = 
  read_csv("data/clean_squirrel_2018.csv") 
```


Column {data-width=650}
-----------------------------------------------------------------------

### Fur Color

```{r}
squirrel_fur_graph =
  squirrel_census |> 
  select(unique_squirrel_id, x, y, primary_fur_color) |>
  filter(!is.na(primary_fur_color))
        
squirrel_fur_graph |> 
  plot_ly(x = ~x, y = ~y, type = "scatter", mode = "markers", color = ~primary_fur_color)
```

Column {data-width=350}
-----------------------------------------------------------------------

```{r}
```